home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
iolib.data
< prev
next >
Wrap
Text File
|
1986-07-03
|
2KB
|
107 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::with-open-stream lisp::with-input-from-string lisp::with-output-to-string))
#!
(lisp::export '(lisp::read-from-string))
#!
(lisp::export '(lisp::write-to-string lisp::prin1-to-string lisp::princ-to-string))
#!
(lisp::export 'lisp::with-open-file)
#!
(lisp::export '(lisp::y-or-n-p lisp::yes-or-no-p))
#!
(lisp::export 'lisp::dribble)
#!
(lisp::in-package 'lisp::system)
(lisp::optimize (lisp::safety 2) (lisp::space 3))
lisp::let
lisp::unwind-protect
lisp::progn
lisp::close
lisp::make-string-input-stream
lisp::setf
system::get-string-input-stream-index
system::make-string-output-stream-from-string
(lisp::make-string-output-stream)
lisp::get-output-stream-string
0
:stream
lisp::open
lisp::*query-io*
"~&~? (Y or N) "
"Y"
"N"
"~&~? (Yes or No) "
"YES"
"NO"
lisp::*read-suppress*
:initial-contents
#\#
#\a
system::sharp-a-reader
#\A
"~S is an extra argument for the #s readmacro."
system::is-a-structure
"~S is not a structure."
system::structure-constructors
"The structure ~S has no structure constructor."
lisp::keyword
#\s
system::sharp-s-reader
#\S
system::*dribble-stream*
system::*dribble-io*
system::*dribble-namestring*
system::*dribble-saved-terminal-io*
"DRIBBLE.LOG"
:supersede
"Not in dribble."
lisp::*terminal-io*
"*TERMINAL-IO* was rebound while DRIBBLE is on.~%~
You may miss some dribble output."
"~&Finished dribbling to ~A."
"Already in dribble (to ~A)."
:direction
:output
:if-exists
:if-does-not-exist
:create
"~&Starts dribbling to ~A (~d/~d/~d, ~d:~d:~d)."
lisp::proclaim
lisp::with-open-stream
lisp::with-input-from-string
lisp::with-output-to-string
lisp::read-from-string
lisp::write-to-string
lisp::prin1-to-string
lisp::princ-to-string
lisp::with-open-file
lisp::y-or-n-p
lisp::yes-or-no-p
lisp::set-dispatch-macro-character
lisp::dribble
system::find-declarations
:index
:start
:end
:preserve-whitespace
lisp::read-preserving-whitespace
:escape
:radix
:base
:circle
:pretty
:level
:length
:case
:gensym
:array
lisp::make-string-output-stream
lisp::make-array
lisp::warn
lisp::get-decoded-time
)